home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 86 / 086.d81 / cart boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  41 lines
  1. 3 dv=peek(186):ifdv<8thendv=8
  2. 5 poke53281,.:poke53280,.:printchr$(147)chr$(14)chr$(8)
  3. 10 gosub61000
  4. 11 poke214,9:print:printtab(12)"[154][212][200][197] [199][210][207][195][197][210][217] [195][193][210][212]"
  5. 12 print"[155]                                     "
  6. 13 poke214,13:print:print"[150]             [204]oading [205][204]..."
  7. 16 sys57812"psb font",dv,0:poke780,0:poke781,0:poke782,40:sys65493
  8. 17 sys57812"reader 8000",dv,0:poke780,0:poke781,0:poke782,128:sys65493
  9. 18 poke53272,27
  10. 19 sys57812"i-menu $c800",dv,0:poke780,0:poke781,0:poke782,200:sys65493
  11. 100 poke214,13:print:print"[150]           [204]oading [208]rogram..."
  12. 102 sys57812"cart.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  13. 105 goto60000
  14. 110 :
  15. 5025 :
  16. 7000 getk$:ifk$<>chr$(13)then7000
  17. 7005 return
  18. 7010 :
  19. 10000 open15,8,15,"s0:cart boot":close15:save"0:cart boot",8:end
  20. 10010 :
  21. 60000 print"[144]load"chr$(34)"cart"chr$(34)","dv
  22. 60025 print"run"
  23. 60030 poke43,1:poke44,48:poke12288,0
  24. 60035 poke631,13:poke632,13:poke633,13:poke198,3
  25. 60040 new
  26. 60999 :
  27. 61000 poke214,15:print
  28. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  29. 61120 print"  [152]                                    "
  30. 61130 print"                                      "
  31. 61140 print"                                      "
  32. 61150 print"     [214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #86   "
  33. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  34. 61170 print"          [193]ll [210]ights [210]eserved         "
  35. 61180 print"                                      "
  36. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  37. 61200 au$="  [212][200][197] [199][210][207][195][197][210][217] [195][193][210][212]  ":poke214,17:print
  38. 61205 printspc(20-len(au$)/2)"[152]"au$
  39. 61210 au$="[194]y [194]arbara [200]. [211]chulak ([195]) 1991":poke214,18:print
  40. 61220 printspc(20-len(au$)/2)"[152]"au$"":return
  41.